home *** CD-ROM | disk | FTP | other *** search
- object StyleForm: TStyleForm
- Left = 170
- Top = 124
- BorderStyle = bsDialog
- Caption = 'Style Wizard'
- ClientHeight = 338
- ClientWidth = 427
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 6
- Top = 6
- Width = 153
- Height = 287
- end
- object Bevel4: TBevel
- Left = 6
- Top = 296
- Width = 417
- Height = 5
- Shape = bsBottomLine
- end
- object Image1: TImage
- Left = 7
- Top = 7
- Width = 151
- Height = 285
- Picture.Data = {<image000.bmp>}
- end
- object Pages: TPageControl
- Left = 168
- Top = 6
- Width = 257
- Height = 289
- ActivePage = FontPage
- TabOrder = 0
- object FontPage: TTabSheet
- Caption = 'FontPage'
- TabVisible = False
- object Label1: TLabel
- Left = 8
- Top = 56
- Width = 24
- Height = 13
- Caption = 'Font:'
- end
- object Label2: TLabel
- Left = 132
- Top = 56
- Width = 23
- Height = 13
- Caption = 'Size:'
- end
- object Label3: TLabel
- Left = 184
- Top = 56
- Width = 33
- Height = 13
- Caption = 'Colour:'
- end
- object Label8: TLabel
- Left = 8
- Top = 11
- Width = 90
- Height = 13
- Caption = 'Name of new style:'
- end
- object FontList: TListBox
- Left = 8
- Top = 96
- Width = 121
- Height = 97
- ItemHeight = 13
- Sorted = True
- TabOrder = 0
- OnClick = FontListClick
- end
- object SizeList: TListBox
- Left = 132
- Top = 96
- Width = 45
- Height = 97
- ItemHeight = 13
- Items.Strings = (
- '8'
- '10'
- '12'
- '14'
- '16'
- '18'
- '22'
- '26'
- '32'
- '48'
- '72')
- TabOrder = 1
- OnClick = SizeListClick
- end
- object SizeEdit: TEdit
- Left = 132
- Top = 72
- Width = 45
- Height = 21
- TabOrder = 2
- Text = '10'
- OnChange = SizeEditChange
- end
- object FontEdit: TEdit
- Left = 8
- Top = 72
- Width = 121
- Height = 21
- TabOrder = 3
- Text = 'MS Sans Serif'
- OnChange = FontEditChange
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 200
- Width = 169
- Height = 69
- Caption = 'Effects'
- TabOrder = 4
- object Bold: TCheckBox
- Left = 8
- Top = 20
- Width = 45
- Height = 17
- Caption = '&Bold'
- TabOrder = 0
- end
- object Italic: TCheckBox
- Left = 84
- Top = 20
- Width = 45
- Height = 17
- Caption = '&Italic'
- TabOrder = 1
- end
- object Underline: TCheckBox
- Left = 8
- Top = 44
- Width = 69
- Height = 17
- Caption = '&Underline'
- TabOrder = 2
- end
- object Strikeout: TCheckBox
- Left = 84
- Top = 44
- Width = 65
- Height = 17
- Caption = '&Strikeout'
- TabOrder = 3
- end
- end
- object ColorButton: TColorButton
- Left = 184
- Top = 72
- Width = 44
- Height = 22
- ActivationEvent = aeClick
- Color = clBlack
- Options = []
- TabOrder = 5
- TabStop = True
- end
- object StyleName: TComboBox
- Left = 8
- Top = 28
- Width = 169
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- 'Heading 1'
- 'Heading 2'
- 'Heading 3'
- 'Heading 4'
- 'Heading 5'
- 'Heading 6'
- 'Body Text')
- TabOrder = 6
- OnChange = StyleNameChange
- end
- end
- object ParagraphPage: TTabSheet
- Caption = 'ParagraphPage'
- TabVisible = False
- object GroupBox2: TGroupBox
- Left = 8
- Top = 12
- Width = 173
- Height = 65
- Caption = 'Alignment'
- TabOrder = 0
- object LeftAlign: TRadioButton
- Left = 8
- Top = 20
- Width = 41
- Height = 17
- Caption = 'Left'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object Center: TRadioButton
- Left = 80
- Top = 20
- Width = 69
- Height = 17
- Caption = 'Centered'
- TabOrder = 1
- end
- object Right: TRadioButton
- Left = 8
- Top = 40
- Width = 49
- Height = 17
- Caption = 'Right'
- TabOrder = 2
- end
- object Justify: TRadioButton
- Left = 80
- Top = 40
- Width = 61
- Height = 17
- Caption = 'Justified'
- TabOrder = 3
- end
- end
- object GroupBox3: TGroupBox
- Left = 8
- Top = 83
- Width = 173
- Height = 118
- Caption = 'Spacing'
- TabOrder = 1
- object Label4: TLabel
- Left = 8
- Top = 20
- Width = 63
- Height = 13
- Caption = 'Line spacing:'
- end
- object Label5: TLabel
- Left = 76
- Top = 44
- Width = 28
- Height = 13
- Caption = 'points'
- end
- object Label6: TLabel
- Left = 76
- Top = 92
- Width = 28
- Height = 13
- Caption = 'points'
- end
- object Label7: TLabel
- Left = 8
- Top = 68
- Width = 70
- Height = 13
- Caption = 'Letter spacing:'
- end
- object LineSpace: TSpinEdit
- Left = 8
- Top = 39
- Width = 65
- Height = 22
- TabStop = True
- ParentColor = False
- TabOrder = 0
- end
- object LetterSpace: TSpinEdit
- Left = 8
- Top = 87
- Width = 65
- Height = 22
- TabStop = True
- ParentColor = False
- TabOrder = 1
- end
- end
- object GroupBox4: TGroupBox
- Left = 8
- Top = 208
- Width = 173
- Height = 65
- Caption = 'Capitals'
- TabOrder = 2
- object UpperCase: TRadioButton
- Left = 92
- Top = 40
- Width = 77
- Height = 17
- Caption = 'Upper case'
- TabOrder = 0
- end
- object LowerCase: TRadioButton
- Left = 92
- Top = 20
- Width = 77
- Height = 17
- Caption = 'Lower case'
- TabOrder = 1
- end
- object SmallCaps: TRadioButton
- Left = 8
- Top = 40
- Width = 73
- Height = 17
- Caption = 'Small caps'
- TabOrder = 2
- end
- object NoCaps: TRadioButton
- Left = 8
- Top = 20
- Width = 61
- Height = 17
- Caption = 'None'
- Checked = True
- TabOrder = 3
- TabStop = True
- end
- end
- end
- end
- object Cancel: TButton
- Left = 84
- Top = 307
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object Back: TButton
- Left = 168
- Top = 307
- Width = 75
- Height = 25
- Caption = '< Back'
- Enabled = False
- TabOrder = 2
- OnClick = BackClick
- end
- object Next: TButton
- Left = 248
- Top = 307
- Width = 75
- Height = 25
- Caption = 'Next >'
- Default = True
- TabOrder = 3
- OnClick = NextClick
- end
- object Finish: TButton
- Left = 328
- Top = 307
- Width = 75
- Height = 25
- Caption = 'Finish'
- Enabled = False
- ModalResult = 1
- TabOrder = 4
- OnClick = FinishClick
- end
- end
-